home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
FishMarket 1.0
/
FishMarket v1.0.iso
/
fishies
/
476-500
/
disk_499
/
diglib
/
diglib.lzh
/
source
/
GSIVIS.for
< prev
next >
Wrap
Text File
|
1991-04-13
|
411b
|
17 lines
INTEGER*2 FUNCTION GSIVIS(X,Y)
IMPLICIT NONE
REAL*4 X,Y
C
INCLUDE DIGLIB$KOM:GCCLIP.PRM
C
C
GSIVIS = 0
D WRITE(9,123)X,Y,XCM0,XCM1,YCM0,YCM1
D123 FORMAT(1X,"GSIVIS",6F6.2)
IF (X .LT. XCM0) GSIVIS = 1
IF (X .GT. XCM1) GSIVIS = GSIVIS + 2
IF (Y .LT. YCM0) GSIVIS = GSIVIS + 4
IF (Y .GT. YCM1) GSIVIS = GSIVIS + 8
RETURN
END